home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / joyevent.def < prev    next >
Text File  |  1995-11-25  |  3KB  |  52 lines
  1. DEFINITION MODULE JoyEvent;
  2. (******************************************************************************)
  3. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  4. (*               Christian Ledermann                                          *)
  5. (*               Wölfelkofen 2                                                *)
  6. (*               84166 Adlkofen                                               *)
  7. (******************************************************************************)
  8. (*                                                                            *)
  9. (* Started:   20.12.92     03:54:30                                           *)
  10. (* Version: 20.12.89   01:484:12:54                                           *)
  11. (*                                                                            *)
  12. (******************************************************************************)
  13. (*                                                                            *)
  14. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  15. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  16. (* durch die Benutzung dieses Programmes entstehen.                           *)
  17. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  18. (*                                                                            *)
  19. (******************************************************************************)
  20. (* ->ST 1/90                                                                  *)
  21. (******************************************************************************)
  22. (* -------------------------------------------------*)
  23. (* Autoren : Uwe A Ruttkamp & Clemens Fehr          *)
  24. (* -------------------------------------------------*)
  25. (* Die Routine wurde von mir leicht modifiziert so wird nun ein gleichzeitiges*)
  26. (* JoyStick nach unten und nach rechts gemeldet ... dafür ist die Feuerknopf *)
  27. (* Abfrage rausgeflogen. die kann mann aber durch einen Aufruf von             *)
  28. (* AES.GrafMouseKeyboardState leicht selbst einbauen wenn sie gebraucht wird *)
  29.  
  30. TYPE JoyEventType=(Right,Left,Up,Down);
  31.      JoyEvents = SET OF JoyEventType; (* gleichzeitiges Auftreten von mehreren
  32.                                        Events wird berücksichtigt *)
  33.  
  34. CONST NoEvents = JoyEvents{};
  35.  
  36.  
  37. PROCEDURE InitJoyEvent;
  38. (* Dient zum Initialisieren des JoyEvent MODULEs
  39.    Von jetzt ab wird bei Jeder Joystick bewegung intern ein Wert modifiziert
  40.    Deshalb Unbedingt TermJoyEvent aufrufen um dies wieder abzuschalten *)
  41.  
  42. PROCEDURE Joystick(VAR Event:JoyEvents);
  43. (* Kernroutine des Modules. In Events wird die augenblickliche Position
  44.  des Lustknüppels zurückgegeben. zb: (Left,Up)... *)
  45.  
  46.  
  47. PROCEDURE TermJoyEvent;
  48.  (* schaltet Joystick Überwachung ab. Unbedingt!!! aufrufen vor beenden des
  49.     Programmes sonst gibts ne BombenStimmung !*)
  50.  
  51. END JoyEvent.
  52.